home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / TERM18.SDA / RAMDOS.BOOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  54 lines
  1. 20 IF P THEN 380
  2. 21 BA = PEEK(186):REM CURRENT DEVICE NUMBER
  3. 22 IF (BA<8) OR (BA>12) THEN BA=8
  4. 25 GOSUB550:REM CHECK FOR MEMORY EXPANDER
  5. 30 PRINT"[147]";CHR$(14);
  6. 40 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  7. 50 [153]"(null) (null)ATN(null) DISK RIGHT$NSTALLATION - V080787 (null)
  8. 51 PRINT"[221] [205]ODIFIED FOR [212][197][210][205][201][206][193][204] [207][206][197] USE.  [221]
  9. 60 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[153]
  10. 70 :
  11. 80 U[178]9:[139] BA[178]9 [167] U[178]8
  12. 85 [153] "RIGHT$NSTALL (null)ATN(null) DISK AS UNIT   ";U;"CMDCMDCMDCMD";
  13. 90 [133] U
  14. 100 : U[178][181](U): [139] U[179]4 [176] U[177]30 [167] 90
  15. 110 F[178]0:P[178]207: L[178]6: ML[178]25344: RE[178]780: F$[178]"RAMDOS64.BIN*"
  16. 130 [153] "(null)ATN(null) DISK INTERFACE PAGE IS  ";P
  17. 160 A$[178]"Y": [133] "RIGHT$NITIALIZE (null)ATN(null) DISK          YCMDCMDCMD";A$
  18. 170 : M[178]3: [139] [200](A$,1)[178]"Y" [167] M[178]0
  19. 180 :
  20. 190 [137]300
  21. 220 :
  22. 230 [143]  C128  C64      WHAT IT DO
  23. 240 [143] $2300 $6300 --> INSTALL    RAM DISK
  24. 250 [143]     3     3 --> RE-INSTALL RAM DISK
  25. 260 [143]     6     6 --> INSTALL    RAM DISK W/ ARG: UNIT=.A PAGE=.X
  26. 270 [143]     9     9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X
  27. 280 [143]     C     C --> DISPLAY COPYRIGHT NOTICE
  28. 290 :
  29. 300 [153] " * (null)ESTORING SYSTEM VECTORS": [158] 65418
  30. 340 [153] " * (null)OADING (null)ATN(null) DISK DRIVER"
  31. 350 : [139] F[178]0 [167] [147] F$,BA,1
  32. 370 :
  33. 380 [158] ML[170]12              :[143]  PRINT EMBEDDED COPYRIGHT NOTICE
  34. 390 [151] RE,U: [151] RE[170]1,P :[143]  LDA UNIT: LDX PAGE
  35. 400 [158] ML[170]6[170]M             :[143]  (RE)INSTALL RAMDISK, USING UNIT# & PAGE
  36. 410 :
  37. 420 [153]
  38. 430 [153] "(null)ATN(null)STR$(null)(null) RIGHT$NSTALLED.":[153]"(null)OW CREATING '#' FILE"
  39. 450 [148]"#",U
  40. 460 [153]:[153]"(null)OW LOADING (null)VAL(null)(null)RIGHT$(null)ATN(null) (null)(null)VAL MAIN PROGRAM":[153]
  41. 470 [147]"TERMINAL1.8*",BA
  42. 530 [128]
  43. 540 :
  44. 550 [143] VERIFY PRESENCE OF RAM CARD
  45. 560 :
  46. 570 R[178]57088: A[178]1
  47. 580 [129]I[178]2[164]5:[151]R[170]I,I:[130]
  48. 590 [129]I[178]2[164]5:[139][194](R[170]I)[179][177]I[167]610
  49. 600 [130]: [142]
  50. 610 A[178]0: [153] " (null)ATN(null) EXPANDER NOT PRESENT ": [128]
  51. 680 :
  52. 690 [143] F.BOWEN 08/07/87 COPYRIGHT 1987 COMMODORE BUSINESS MACHINES, INC.
  53. 691 [143] CUSTOMIZED FOR TERMINAL ONE USE BY PHIL KEMP
  54.